YAZDI╨INIZ MET▌N DE╨▌▐MES▌N
╓yle bir metin kutusu istiyorsunuz ki kullan²c² ⁿzerine bir ■eyler yazd²≡²nda de≡i■tiremesin, istedi≡iniz metin dosyas²n² bu kutuya yⁿkledi≡inizde kullan²c² sadece bunu a■a≡² yukar² kayd²rs²n. ╓rne≡imiz iτin alelade bir form ⁿzerine yine alelade bir metin kutusu olu■turun. DENEME.TXT ad²nda ve uzunca bir metin iτeren ÷rnek dosya olu■turun.Form_Load () 'Deneme dosyam²z² yⁿklⁿyoruz... Open "DENEME.TXT" For Input As #1 Text1.Text = Input$(LOF(1), 1) Close #1 End Sub Private Sub Text1_KeyPress(keyascii As Integer) ' Kullan²c² bir tu■a bast²≡²nda ASCII de≡erini 0 yaparak tu■ vuru■unu g÷zard² et. keyascii = 0 End Sub